MAKOVA.NEW[1,JRA]1 - www.SailDart.org

perm filename MAKOVA.NEW[1,JRA]1 blob sn#005815 filedate 1972-10-19 generic text, type T, neo UTF8

00100	(DE MAKOVAR(Z)(PROG (N X)(SETQ OUTVAR NIL)(SETQ N 1)(SETQ X Z)
00200	A(SETQ OUTVAR(CONS (CONS N(CAR X))OUTVAR))
00300	(SETQ X(CDR X))(COND(X(SETQ N(ADD1 N))(GO A)))
00400	(RETURN OUTVAR)))